home *** CD-ROM | disk | FTP | other *** search
/ Chip 2005 May / CMCD0505.ISO / Software / Demo / DesktopX / objects / ktekdockv1.dxpack / {4F1D79C9-2FE9-4610-9564-A6790AC0244D}.DXScript2 < prev    next >
Extensible Markup Language  |  2004-08-24  |  2KB  |  42 lines
  1. <?xml version="1.0"?>
  2. <!--DXScript Data File.  Version 2.0-->
  3. <DXScript>
  4.     <Script><![CDATA[Sub Object_OnScriptEnter
  5.     Object.LocalStorage("state") = "normal"
  6. End Sub
  7.  
  8. Sub Object_OnMouseEnter
  9.     If Object.LocalStorage("state") <> "disabled" Then
  10.         Object.State = "hover"
  11.         Object.LocalStorage("state") = "hover"
  12.     End If
  13. End Sub
  14. Sub Object_OnMouseLeave
  15.     If Object.LocalStorage("state") <> "disabled" Then
  16.         Object.State = "normal"
  17.         Object.LocalStorage("state") = "normal"
  18.     End If
  19. End Sub
  20. Function Object_OnLButtonDown(x, y)
  21.     If Object.LocalStorage("state") <> "disabled" Then
  22.         Object.State = "pressed"
  23.         Object.LocalStorage("state") = "pressed"
  24.     End If
  25. End Function
  26. Function Object_OnLButtonUp(x, y, Dragged)
  27.     If Object.LocalStorage("state") <> "disabled" Then
  28.         Object.State = "hover"
  29.         Object.LocalStorage("state") = "hover"
  30.     End If
  31. End Function
  32.  
  33. Sub Object_OnStateChange(state)
  34.     Select Case state
  35.         Case "disabled","normal","hover","pressed"
  36.             Object.LocalStorage("state") = state
  37.     End Select
  38.     If state = "Command executed" Then
  39.         DesktopX.ScriptObject("wmp").Control.Fullscreen = True
  40.     End If
  41. End Sub]]></Script><Globals><Editor><PropPane>0</PropPane><EditorLeft>71</EditorLeft><EditorTop>251</EditorTop><EditorRight>1237</EditorRight><EditorBottom>880</EditorBottom></Editor><Object><LanguageCLSID>{B54F3741-5B07-11CF-A4B0-00AA004A55E8}</LanguageCLSID><ControlCLSID>{00000000-0000-0000-0000-000000000000}</ControlCLSID><ControlObjWidth>64</ControlObjWidth><ControlObjHeight>64</ControlObjHeight><RunState>1</RunState><ManualControlLoad>0</ManualControlLoad><ScriptHostVersion>2</ScriptHostVersion></Object></Globals></DXScript>
  42.